home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / p063b9s.zip / UNIT / MSDEFS.PAS < prev    next >
Pascal/Delphi Source File  |  1996-04-20  |  3KB  |  99 lines
  1. UNIT MSDefs;
  2. {╔══════════════════════════════════════════════════════════════════════════╗}
  3. {║ Mail processor definitions                    Last changed: 20.04.96  SA ║}
  4. {║                                                                          ║}
  5. {║                         (C) Copyright 1989-93 by                         ║}
  6. {║       Dan Wulff, Jens Sandalgaard, Steen Christensen & S¢ren Ager        ║}
  7. {║                                                                          ║}
  8. {║ This source may not be given to anybody, without the written permission  ║}
  9. {║ from The Portal Team.                                                    ║}
  10. {╚══════════════════════════════════════════════════════════════════════════╝}
  11. {$I POPDEFS.INC}
  12.  
  13. INTERFACE
  14.  
  15. USES Use32, OpString,
  16.      PoPTypes, NetFile;
  17.  
  18. CONST
  19.   QBBSMsgTxtMax=20;
  20.   MaxDupeBases=6;
  21. TYPE
  22.   SeenByTabType=ARRAY[1..10000] OF INTEGER;
  23.   PathTabType=ARRAY[1..1000] OF INTEGER;
  24.   SmallAreasType=RECORD
  25.     Directory   : StringPtr;
  26.     EchoNames   : ARRAY[1..3] OF StringPtr;
  27.     MaxScan,
  28.     Scanned     : WORD;
  29.     ScanDate    : LongInt;
  30.     UsedAKA,
  31.     AreaType    : BYTE;
  32.     ImportSB    : Boolean;
  33.   END;
  34.  
  35.   AreasBBSPtr=^AreasBBSType;
  36.   AreasBBSType=RECORD
  37.     Area    : SmallAreasType;
  38.     SendTo  : ARRAY[1..2] OF Pointer; { to some of a SendToTabType }
  39.     SendNum : ARRAY[1..2] OF BYTE;
  40.     DupePos : LongInt;
  41.     QNum    : BYTE;
  42.     NewMail : Boolean;
  43.     Next    : AreasBBSPtr;
  44.   END;
  45.  
  46.   DupeType=RECORD
  47.     WhotoCRC,
  48.     WhoFromCRC,
  49.     SubjectCRC,
  50.     DateCRC     : WORD;
  51.   END;
  52.  
  53.   DupeBaseType=RECORD
  54.     Tag    : S40;
  55.     SigNum : WORD;
  56.     Sig    : ARRAY[1..1000] OF DupeType;
  57.   END;
  58.  
  59.   DupeMemType=RECORD
  60.     D      : DupeBaseType;
  61.     DFPos  : LongInt;
  62.   END;
  63.   DupeMemTypePtr=^DupeMemType;
  64.   DupeTabType=ARRAY[1..MaxDupeBases] OF DupeMemTypePtr;
  65.  
  66.   MessageType = RECORD
  67.     WhoTo,
  68.     WhoFrom   : S35;
  69.     Subject   : S72;
  70.     OrigNet,
  71.     OrigNode,
  72.     DestNet,
  73.     DestNode  : WORD;
  74.     Tag       : S40;
  75.     TextBody  : Array[1..61440] of CHAR;
  76.     MsgLen    : WORD;
  77.   END;
  78.   MessageTypePtr=^MessageType;
  79.  
  80.   QBBSBaseType=RECORD
  81.     MsgInfoFile : TNetFile;
  82.     MsgInfo     : HudsonInfoRecord;
  83.     MsgIdxFile  : TNetFile;
  84.     MsgIdx      : HudsonIdxRecord;
  85.     MsgHdrFile  : TNetFile;
  86.     MsgHdr      : HudsonHdrRecord;
  87.     MsgToIdxFile: TNetFile;
  88.     MsgToIdx    : S35;
  89.     MsgTxtFile  : TNetFile;
  90.     MsgTxtTab   : ARRAY[1..QBBSMsgTxtMax] OF STRING;
  91.     MsgTxtNum   : BYTE;
  92.   END;
  93.  
  94.   OpusBaseType = ARRAY[1..1000] OF INTEGER;
  95.  
  96. IMPLEMENTATION
  97.  
  98. END.
  99.